home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / ice-9 / slib.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  1.9 KB  |  43 lines
  1. ;;;; slib.scm --- definitions needed to get SLIB to work with Guile
  2. ;;;;
  3. ;;;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2006, 2007 Free Software Foundation, Inc.
  4. ;;;;
  5. ;;;; This library is free software; you can redistribute it and/or
  6. ;;;; modify it under the terms of the GNU Lesser General Public
  7. ;;;; License as published by the Free Software Foundation; either
  8. ;;;; version 2.1 of the License, or (at your option) any later version.
  9. ;;;;
  10. ;;;; This library is distributed in the hope that it will be useful,
  11. ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13. ;;;; Lesser General Public License for more details.
  14. ;;;;
  15. ;;;; You should have received a copy of the GNU Lesser General Public
  16. ;;;; License along with this library; if not, write to the Free Software
  17. ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  18. ;;;;
  19. (define-module (ice-9 slib)
  20.   :export (slib:load slib:load-source defmacro:load
  21.        implementation-vicinity library-vicinity home-vicinity
  22.        scheme-implementation-type scheme-implementation-version
  23.        output-port-width output-port-height array-indexes
  24.        make-random-state
  25.        -1+ <? <=? =? >? >=?
  26.        require slib:error slib:exit slib:warn slib:eval
  27.        defmacro:eval logical:logand logical:logior logical:logxor
  28.        logical:lognot logical:ash logical:logcount logical:integer-length
  29.        logical:bit-extract logical:integer-expt logical:ipow-by-squaring
  30.        slib:eval-load slib:tab slib:form-feed difftime offset-time
  31.        software-type)
  32.   :no-backtrace)
  33.  
  34.  
  35. ;; Initialize SLIB.
  36. (load-from-path "slib/guile.init")
  37.  
  38. ;; SLIB redefines a few core symbols based on their default definition.
  39. ;; Thus, we only replace them at this point so that their previous definition
  40. ;; is visible when `guile.init' is loaded.
  41. (module-replace! (current-module)
  42.                  '(delete-file open-file provide provided? system))
  43.